$Path=Append[$Path,"/pkgs"];
<<KnotTheory`

K = PD[X[3,8,4,1],X[5,3,6,2],X[1,7,2,6],X[7,4,8,5]];
KhReduced[K][q, t]